ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
if it is empty then exit mouseUp
if it is "(e.g 500, 1000, 10000, etc ...)" then
beep
answer "You didn't enter a number!" with "Oops"
exit mouseUp
end if
lock screen
push cd
put it into dollar6
put empty into fld 2
put it into fld 6
put it into fld 30
Repeat with x = 3 to 6
add fld x to fld 2
end Repeat
go cd Reception1 of stack Eventcards
put dollar6 into fld 14
pop cd
Repeat with x = 5 to 10
hide cd btn x
end Repeat
unlock screen with dissolve
put 0 into sumUp
Repeat with x = 25 to 29
add fld x to sumUp
end Repeat
if sumUp <> fld 30 then answer "Please correct RECEPTION allocations!"
beep
end mouseUp
-- part 23 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=244 right=263 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wedding Ceremony
----- HyperTalk script -----
on mouseUp
ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
if it is empty then exit mouseUp
if it is "(e.g 500, 1000, 10000, etc ...)" then
beep
answer "You didn't enter a number!" with "Oops"
exit mouseUp
end if
lock screen
push cd
put it into dollar5
put empty into fld 2
put it into fld 5
put it into fld 24
Repeat with x = 3 to 6
add fld x to fld 2
end Repeat
go cd Ceremony1 of stack Eventcards
put dollar5 into fld 14
pop cd
Repeat with x = 5 to 10
hide cd btn x
end Repeat
unlock screen with dissolve
put 0 into sumUp
Repeat with x = 19 to 23
add fld x to sumUp
end Repeat
if sumUp <> fld 24 then answer "Please correct CEREMONY allocations!"
beep
end mouseUp
-- part 24 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=261 right=280 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Rehearsal Dinner
----- HyperTalk script -----
on mouseUp
ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
if it is empty then exit mouseUp
if it is "(e.g 500, 1000, 10000, etc ...)" then
beep
answer "You didn't enter a number!" with "Oops"
exit mouseUp
end if
lock screen
push cd
put it into dollar4
put empty into fld 2
put it into fld 4
put it into fld 18
Repeat with x = 3 to 6
add fld x to fld 2
end Repeat
go cd Rehearsal1 of stack Eventcards
put dollar4 into fld 14
pop cd
Repeat with x = 5 to 10
hide cd btn x
end Repeat
unlock screen with dissolve
put 0 into sumUp
Repeat with x = 13 to 17
add fld x to sumUp
end Repeat
if sumUp <> fld 18 then answer "Please correct DINNER allocations!"
beep
end mouseUp
-- part 25 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=278 right=297 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Bridal Shower
----- HyperTalk script -----
on mouseUp
ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
if it is empty then exit mouseUp
if it is "(e.g 500, 1000, 10000, etc ...)" then
beep
answer "You didn't enter a number!" with "Oops"
exit mouseUp
end if
lock screen
push cd
put it into dollar3
put it into fld 2
put it into fld 3
put it into fld 12
Repeat with x = 4 to 6
add fld x to fld 2
end Repeat
go cd Shower1 of stack Eventcards
put dollar3 into fld 14
pop cd
Repeat with x = 5 to 10
hide cd btn x
end Repeat
unlock screen with dissolve
put 0 into sumUp
Repeat with x = 7 to 11
add fld x to sumUp
end Repeat
if sumUp <> fld 12 then answer "Please correct SHOWER allocations!"
beep
end mouseUp
-- part 26 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=3 top=299 right=319 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
lock screen
Repeat with x = 5 to 10
hide cd btn x
end Repeat
end mouseUp
-- part contents for background part 17
----- text -----
BUDGET PROFILE
-- part contents for background part 68
----- text -----
WELCOME TO THE MAC WEDDING HELP SYSTEM.
When you are done reading this screen, click in this field to hide it from view. Thank You.
Here's an explanation of the BUDGET PROFILE:
The Budget Profile allows you to set overall spending limits on major events and allocate that expense on a percentage basis to responsible parties. Editing can be done directly on this card allowing you to change or delete existing budget information.
After entering the dollar limits, click on the Done button. Then proceed to enter detail allocations for each category. After that you may click on the % button which will cause the program to test your $ inputs against the limits previously set and then convert all expense data to percent values. If you are over the limit it will tell you in which category the overage exists and allow you to correct the input before proceeding.
After the dollar amounts have been entered and set you can cycle between % and $ readouts in the Expense Allocation Table. The dollar amounts only, in the Expense Allocation Table, can also be changed at any time.
If you wish to see a graphic representation of expense allocations, in any category, click the PIE CHART button in the lower right-hand corner of the screen. A pop-up menu will appear from which you can select the category you wish to display. A PRINT button allows you to produce a hard copy of the selected % Pie Chart.
The REPORTS Button allows you to print a copy of the screen.
 (January 1993).iso/Files/Hyper/M-Md/MacWedding.cpt/MacWedding™/HomeChurch/card_4583_render.png){kind=link}
 (January 1993).iso/Files/Hyper/M-Md/MacWedding.cpt/MacWedding™/HomeChurch/card_5734_render.png){kind=link}